﻿Public Class AnalyzeCompletedEventArgs
    Inherits System.ComponentModel.AsyncCompletedEventArgs

#Region "property"

    Private m_Url As String = String.Empty
    Public ReadOnly Property Url() As String
        Get
            Return m_Url
        End Get
    End Property

    Private m_ResList As List(Of WebResourceInfo)
    Public ReadOnly Property ResList() As List(Of WebResourceInfo)
        Get
            Return m_ResList
        End Get
    End Property


#End Region

#Region "constructed function"

    Public Sub New(ByVal [error] As Exception, ByVal cancelled As Boolean, ByVal userState As Object)
        MyBase.New([error], cancelled, userState)
    End Sub

    Public Sub New(ByVal [error] As Exception, ByVal cancelled As Boolean, ByVal url As String, ByVal lst As List(Of String), ByVal userState As Object)
        MyBase.New([error], cancelled, userState)
        Me.m_Url = url
    End Sub

    Public Sub New(ByVal [error] As Exception, ByVal cancelled As Boolean, ByVal url As String, ByVal lst As List(Of WebResourceInfo), ByVal userState As Object)
        MyBase.New([error], cancelled, userState)
        Me.m_Url = url
        Me.m_ResList = lst
    End Sub
#End Region


End Class
